home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / REALbasicｾﾞﾐﾅｰﾙ / サンプル / Read me & Souce Code < prev    next >
Text File  |  1999-01-13  |  2KB  |  60 lines
  1. ※このサンプルは、月刊誌「Mac100%」の連載記事用に作成されたものです。
  2.  
  3. 付属するREALbasicのファイルは、オブジェクト類の設計は完成していますが、ソースコードは記述されていません。最初から完成されていた状態のものを動かすだけでは理解に結びつかないと思うからです。
  4. 　これらのソースコードは以下に掲載しておきます。どうぞ記事を読んで、御自分でソースコードを組み込んで下さい。
  5.  
  6.  
  7. ※尚、連載に関する御意見質問などは、以下を御覧ください。
  8.  
  9. http://www.netjoy.ne.jp/~tuya/
  10.  
  11. これは筆者のホームページです。ここに、本誌連載記事のコーナーがあり、そこでFAQなどを取りまとめております。
  12.  
  13.  
  14.  
  15. ※今回作成したソースコード
  16.  
  17. 【リスト１ 】
  18.  
  19. Sub Action()
  20.     Dim NAMAE As String
  21.     NAMAE = EditField1.Text
  22.     MsgBox "よっ！　元気か、" + NAMAE + "ちゃん？"
  23. End Sub
  24.  
  25.  
  26. 【リスト２】
  27.  
  28. Sub Action()
  29.     Dim SougakuNum As Integer
  30.     Dim NinzuNum As Integer
  31.     Dim DanseiNum As Integer
  32.     Dim JoseiNum As Integer
  33.     Dim OTOKONum As Integer
  34.     Dim ONNANum As Integer
  35.     Dim KANJINum As Integer
  36.     
  37.     SougakuNum = Val(Sougaku.Text)
  38.     NinzuNum = Val(Ninzu.Text)
  39.     JoseiNum = Val(Josei.Text)
  40.     DanseiNum = NinzuNum - JoseiNum
  41.     if SougakuNum * NinzuNum = 0 then
  42.         MsgBox "金額か人数がゼロになっています。"
  43.         return
  44.     end if
  45.     if JoseiNum + 2 > NinzuNum then
  46.         MsgBox "女性の数は（全員−１）より" + Chr(13) + "少なくないといけません。"
  47.     end if
  48.     OTOKONum = (SougakuNum + (JoseiNum * 1000)) / NinzuNum
  49.     ONNANum = Floor(OTOKONum / 500) * 500 - 500
  50.     OTOKONum = Ceil(((SougakuNum - JoseiNum * ONNANum) / DanseiNum)/100) * 100
  51.     KANJINum = OTOKONum + (SougakuNum - JoseiNum * ONNANum - DanseiNum * OTOKONum)
  52.     OTOKO.Text = Str(OTOKONum)
  53.     if JoseiNum > 0 then
  54.         ONNA.Text = Str(ONNANum)
  55.     end if
  56.     KANJI.Text = Str(KANJINum)
  57. End Sub
  58.  
  59.  
  60.